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INTRODUCTION 


This document presents the final technical report for the development and delivery of a Stand Alone 
Pressure Measurement Device (SAPMD) and associated ground support equipment. This program was 
developed for the NASA/Johnson Space Center under NASA contract NAS9-17601 (SwRI Project 15-1062). 

The data and documentation contained herein are the results of the development and successful 
completion of this contract. 

Background 

This program fulfilled the need to measure pressure at the surface of the thermal protective system tile 
on the space shuttle Orbiter during ascent, and in order to avoid the extensive impact associated with wiring the 
measurement into the Orbiter data system, the measurement device must be completely stand-alone and 
incorporate its own power supply and data recording facility. The device must be small enough to be mounted 
under the thermal protection system tiles and must be rugged enough to withstand the environments it will 
encounter at the bond line of the tiles throughout an Orbiter mission. It must be failsafe and data recorded 
during ascent must be recoverable after the mission without removal of the device. 

Specifications 

The SAPMD shall measure ambient pressure at the surface of the Orbiter TPS in the range of 0- 
15 pounds per square inch absolute (PSIA). Measurement will begin at solid rocket booster (SRB) ignition as 
sensed by appropriate vibration sensing elements in the SAPMD. Pressure and corresponding real-time data 
are to be recorded every one tenth second for 140 seconds and at the end of the recording period, the operation 
will be discontinued with the data preserved for interrogation subsequent to Orbiter re-entry and landing. 

The type and size of the battery shall be such as to allow the vibration sensing elements and a real- 
time clock to be initialized a minimum of 30 days prior to launch and still provide power as necessary to perform 
the 140 second data recording period after SRB ignition. Battery installation shall be in such a manner as to 
allow battery replacement without removing the SAPMD from its position or removing more than one TPS tile. 

The SAPMD must be mounted in specific locations under tiles of the Orbiter TPS. To accommodate 
such mounting, the absolute maximum physical dimensions must not exceed 6.0 inches in length, 1.5 inches in 
width and 0.4 inches in height, and the device shall be of such configuration that it can be bonded to the Orbiter 
skin at the joint line of two TPS tiles with the pressure sensing port at the surface of the tile. The SAPMD must 
remain operational in the temperature range of -40 to + 85°C and survive storage temperatures of -55 to 
+ 125°C. The pressure port must withstand 934°C without causing damage to the TPS during entry and must 
remain functional at 262°C during ascent. 

The accuracy of the pressure measurement must be plus or minus one-half pound per square inch 
absolute over a temperature range of 0 to + 36°C. 

Conclusion 

All of the above specifications have been met and verified by prototype testing and is documented in the 
enclosed test data. 

Four flight-qualified models were fabricated and of these, two have been delivered and successfully flown 
in the cargo bay of STS-26. 

A contract modification changed the delivery of four flight models to two while modifying the remaining 
two for use in the nozzle bearing area of the SRB during a ground test at the Morton Thiokol site in Utah, 
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1.0 


INTRODUCTION 


l.l Sccca 

This specification establishes the requirements for complete 
identification and acceptance of a Stand-Alone Pressure Measurement Device 
(SAPMD) for the Space Shuttle Orbiter to be formally accepted by the Manned 
Spacecraft Center (MSC) . 


1.2 


The engineering baseline shall be established by a Critical Design 
Review (CDR) for this Contract End Item (CEI). All units of this CEI, 
regardless of intended use, shall be manufactured and accepted to the 
configuration defined by this psecification and formally approved Engineering 
Change Proposals (ECP's)/Specification Change Notices (SCN's). 
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2.0 


APPLICABLE DOCUMENTS 


The following documents of the exact issue shown form a part of this 
specification to the extent specified herein. In the event of conflict 
between this specification and documents referenced herein, this specification 
shall take precedence. 

Specif ications-JSC 

NHB 5300.4 (3A-1) Requirements for Soldering of Electrical Connections 

NHB 5300.4 (1D2) Safety, Reliability, Maintainability, and Quality 

Provisions for the Space Shuttle Program 

NHB 8060. IB Flammability, Odor, and Offgassing Requirements 


NHB 5300.4 (IC) 

JSC 07700, Vol . IV 
JSCM 8080 
JSC 02681 


Inspection System Provisions 
Configuration Management 
Criteria and Standards 

Nonmetallic Materials Design Guidelines and Test Data 
Handbook 


JSC-09604B 

JSC-SE-R-0006B 
JSC 17481 
JSC-SL-E-00 0 2B 

JSC-SP-T-0023B 
JSC/MSC-SPEC-M-1A 
JSC SW-E-0002 


JSC GFE Materials Selection List and Matrials 
Documentation Procedures 

NASA/JSC Materials and Processes 

JSC Safety Guidelines Document for Space Shuttle GFE 

Specification, Electromagnetic Interference 
Characteristics, Requirements for Equipment for the 
Space Shuttle Program 

Specification, Environmental Acceptance Testing 
Marking and Identification 

Space Shuttle Program GSE General Design Requirements 


Specif ications-Rockwell 

MF-0004-002B Electrical Design Requirements for Electrical 

Equipment Utilized on the Space Shuttle Vehicle 


Standards-Militarv 


MIL-STD-975E 


NASA Standard (EEE) Parts List 



3.0 


TECHNICAL REQUIREMENTS 


3.1 


The Stand Alone Pressure Measure Device (SAPMD) shall measure ambient 
pressure at the surface of the Orbiter TPS. The measurement range shall be 
0-15 psia. The measurements shall begin at solid rochet booster (SRB) 
ignition as sensed by appropriate vibration sensors located within the 
enclosure incorporating the battery and electronics. Upon sensing SRB 
ignition, the SAPMD will monitor and record pressure for 140 seconds to a 
solid state non-volatile memory storage device. At the end of the recording 
period, the operation will be discontinued with the data preserved for 
interrogation subsequent to Orbiter entry and landing. 

The SAPMD shall have a means to accurately time tag the recorded data 
in units of 1/2 seconds since January 1. The timekeeping and vibration sensor 
circuit shall be initialized 30 days before launch. The battery capacity 
shall be such that this timekeeping can be continued for a minimum of 50 days. 

The block diagram shown in Figure 3-1 depicts the method in which the 
SAPMD shall process and record the pressure nd time data. The heart of the 
system will be an INTEL 80C31, 8-bit CMOS processor with the program in 
electrically eraseable programmable prom and the memory device shall be a 64K 
CMOS electrically eraseable prom capable of 10-year data retention. 

The battery supply shall be two each 600 mAH Lithium Thionly Chloride 
batteries in a removable battery holder. 

Data retrieval shall be accomplished with a battery-powered 80C88- 
based computer. Communication with the SAPMD shall be serial with additional 
connector pins to provide auxilliary power to the SAPMD. 

The SAPMD shall be fabricated to meet the environmental conditions as 
specified in paragraphs 3.5.1 and 3.5.2 of the contract specification. 

3.2 Product Configuration 

Figure 3-2 Top Assembly Drawing. 

3.2.1 Manufactu ring Drawings 

The configuration of the SAPMD shall be in accordance with drawing 
number 15-1062-457, and drawings and engineering data assembled thereunder, 
including all approved changes thereto. Class II changes to manufacturing 
drawings are allowable without NASA approval, however they are subject to 
classification review by NASA. 

3. 2'. 2 Government Furnished Pr operty List 

NONE 
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SWITCHED POWER 8US 


1 062- CE I - 0 1 
19 October 



FIGURE 3-1. REVISED SAPMD BLOCK DIAGRAM 











1062— CEI— 0 1 
24 June 1986 


3.2.3 Standards of Manufacturing. Manu factucl n g - E rQces sfi g ^ . and Product i o n 

The applicability of the following publications to the SAPMD may be 
revised only by engineering changes having prior approval of NASA. 


MIL-STD-975F NASA Standard Electrical, Electronic, and 

Electromechanical (EEE) Parts List 

Specif ications-Mllitarv 
None 


Specif ications-NASA 

JSC/MSFC-SPEC-M-1A Marking and Identification 


JSC-SE-R-0006B 

JSC-SL-E-0002A 


JSC-SP-T-0023B 

JSC SW-E-0002 , Rev. B 


NASA/JSC Requirements for Materials and 
Processes 

Specification, Electromagnetic Interference 
Characteristics, Requirements for Equipment 
for the Space Shuttle Program 

Specification, Environmental Acceptance 
Testing 

Space Shuttle Program GSE General Design 
Requirements 


Documents-NASA 

JSC 07 700, Vol. IV 
Rev. B 

JSCM 8080 

JSC-09604B 


Space Shuttle Program Configuration Management 
Requirements (with changes through No. 60) 

Manned Spacecraft Criteria and Standards 

JSC GFE Materials Selection List and Materials 
Documentation Procedures 


JSC 17481A 
NHB 5300.4(3A-1) 


Safety Requirements Document for JSC Space 
Shuttle Flight Equipment 

Requirements for Soldering Electrical 
Connections 


NHB 5300 . 4( 1D2) Safety, Reliability, Maintainability, and 

Quality Provisions for the Space Shuttle 
Program 
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1062-CEI-01 
24 June 1986 


NHB 8060. IB 


NHB 5300.4(1C) 


Flammability, Odor, and Offgassing 
Requirements and Test Procedures for 
Materials, in Environments that Support 
Combustion 

Inspection System Provisions for Aeronautical 
and Space System Materials, Parts, Components 
and Services 


Other Standards/Documents 
Rockwell 

MF-0004-002B Electrical Design Requirements for Electrical 

Equipment Utilized on the Space Shuttle 
Vehicle 


3-5 



4.0 QUALITY ASSURANCE 

Southwest Research Institute is responsible for accomplishment of 
each verification required herein. 

4.1 Quality Requirements 

4.1.1 A pplicability of NHB 53QQ.4 ( 1D2) 

Paragraphs 1D200 and 1D301.6. 

A) Chapter 2, all paragraphs. 

B) Chapter 3, all paragraphs. 

C) Chapter 4, all but paragraphs 3A401, and 3A502. 

D) Chapter 8, all paragraphs. 

4.1.3 Drawing Compliance 

Written verification that the SAPMD has been fabricated, inspected, 
and tested to the latest applicable drawings identified in 3.2.1 and has 
incorporated the GFP specified in 3.2.2 will be provided at each Acceptance 
Review . 

4.1.4 Additional Requirements 
Paragraph 5.1.3, JSC document 20793. 

4.2 Reliability Requirements 

A) Design per document JSCM 8080. 

B) Design Review ( PDR and CDR ) . 

C) Limited life items identification per SwRI document 1062-LL-01. 

D) EEE parts per Mil-Std-975F ( where possible ). 

E) Derating per Mil-Std-975F, appendix A. 

4.2.1 Additional Requirements 
None 

4.3 Test Requirements 

Per contract NAS9-17601, latest revision. 
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5.0 


PREPARATION FOR DELIVERY 


5.1 Conta iners. 

, the preservation, packaging, and Peking 
Unless otherwise speci f ied. the p ercial pra ctice. provided 

sssss 

— classl£ " 

Rules for truck shipment, as applicable. 


5.2 


Marking 


. ^nni-fl-iners shall be marked in accordance 
Interior and exterior conta sto raee" 

MIL-STD-129 "Marking for Shipment and Storage 
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6.0 


NOTES 


The SAPMD, part number 15-1062-900-01, is intended for use in the 
measurement of ambient air pressure and the recording of that data in the 
vicinity of the Space Shuttle Orbiter exterior surfaces. Data thus acquired 
will be transferred to a portable computer system post flight for analysis and 
archiving . 


Procurement documents shall specify: 

(a) Contract End Item Specification for the Stand-Alone Pressure 
Measurement Device for the Space Shuttle Orbiter, SwRI Document 
No. 1062-CEI-01 , date 20 October 1987. 

(b) Special precautions shall be applied to control of electrostatic 
discharge during all stages of parts procurement, storage, 
fabrication and test. 


A) SAPMD - Stand Alone Pressure Monitor Device 


NOTICE: When MSC drawings, specification, or other data are used for any 

purpose other than in connection with a definitely related MSC procurement 
operation, the United States Government thereby incurs no responsibility nor 
any obligation whatsoever and the fact that MSC may have formulated, 
furnished, or in any way supplied the said drawings, specifications, or other 
data is not to be regarded by implication or otherwise as in any manner 
licensing the holder or any other person or corporation, or conveying any 
rights or permission to manufacture, use, or sell, any patented invention that 
may be in any way related thereto. 
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FLIGHT HAZARD EVALUATION OF THE 
LITHIUM THIONYL CHLORIDE CELL 


FLIGHT HAZARD EVALUATION 
OF THE 

LITHIUM THIONYL CHLORIDE CELL 



PURPOSE OF EVALUATIONS 


Temperature Vacuum Test 

* Loss of Hermeticity of Package and Temperature 
at Which That Loss Occurred 

* Electromechanical Failure 

* Degradation of the Cell’s Ability to Supply 

Power and Temperature at Which That Degradation 
Occurred 


* 


Qualitative Rate of Failure Over Time 



Temperature Vacuum Test Results 


Temperature Risk of Less Than 5°c/min. Never Caused 
Violent Rupture of Case 

Cell Continued to Produce Usable Power Even After 
Encapsulant Failure 



Purpose of Evaluations 


Short Circuit Test 

* Time Rate of Case Temperature Change 

* Maximum Short Circuit Current 

* The Degradation of the Cell’s Ability to Supply Power 



Short Circuit Test Results 


Case Temperature Could Exceed 100°c With No Visible Damage 
To Case and No Loss of Encapsulant Integrity 

Output Current Could Exceed 1.0 Ampere and Cell Could Still 
Produce Usable Power After Test 



SAPMD SCHEMATICS 




SAPMD ELECTRONIC SCHEMATIC 









CAP. VALUES changed, title changed 



SCHEMATIC. SAPMD HYBRID 
CIRCUIT NO. 1 


H7, B8 VALUE CHG'O.. title changed 



SCHEMATIC. SAPMD HYBRID 
CIRCUIT NO. 2 





TEST DATA, PROTOTYPE 


PROTOTYPE SAPMD TEST RESULTS 

d , 1987 @NASAD^»^ tRe5 '” CtCe ” ,Cr 

Initial Tests Conducted 3 MarU* 1987 @ 

* Results Unacceptable 

. very W Zero Drifi»/remP— 

. High Pressure Transducer Drift w/Temperature . 

Un itR«- t ^,oSwR.lo,R^/C— 

, Error Sources Analyzed Ptessu re Transducer 

High Eero Drift w/Temperature fro ^ ^ Voltage Regulator 
. Large Error Resulting in Temperature Drift o 

Modified and Recalibrated 


Prototype 


Pressure 


Transducer Replaced w/Be«» 


x Performing Unit 


, Current Limit of Voltage Regulator Raised 

■ inserted in Series ^/Pressure Transduc 
Thermistor lose „ Retor „ to JSC 

Extensive Calibration Pertorme 
prototype Returned to JSL 

SwRl Wormed ISC Accepts Repaue 
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RAN DATA, SAPHD MODIFIED PROTOTYPE PERFORMANCE AT JSC JULY 6-9, 1987 
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SAPMD ASSEMBLY DRAWING 


SAPMD ASSEMBLY 
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SAPMD FLIGHT SOFTWARE MODULES 
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SAPMD FLIGHT SOFTWARE EXECUTION LEVELS 
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CONFIGURING SAPMD FLIGHT SOFTWARE 
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OPTION 1: COMMAND/INTERROGATE SAPMD MENU 
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OPTION 2: SAPMD SELF-TEST MENU 
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1.0 INTRODUCTION 

This specification establishes the requirements specified In NAS9- 17601, Request 
for Engineering Change Proposal dated April 19, 1988 for the design, development, fabrication, 
testing and delivery of two (2) Stand-Alone Pressure Measurement Devices (SAPMD) based on 
the design of the existing SAPMDs for the Shuttle Orbiter. The revised design will be capable of 
operation In a 1000 psi, 187'F environment for use In the Solid Rocket Booster (SRB) tests. 
The main tasks of this new work is the design of a high-pressure housing, substitution of a 
high-pressure sensor and design of a longer life battery supply. 

1.1 Background 

The present design of the SAPMD Incorporates a microprocessor system 
Implemented with hybrid module techniques using low power CMOS units which are contained 
In a 0.4-in. thick metal housing. The system Is designed to operate Installed under selected 
heat shield tiles on the Shuttle Orbiter and to thus survive and operate In a pressure regime 
from near zero psl to atmospheric pressure (14.7 psi). The unit operates from self-contained 
lithium batteries which provide an operating lifetime In the sleep mode of 1200 hours. The 
system is awakened by sensing the vibration of launch and takes pressure data for a period of 
140 seconds with data readings every 100 ms. On-board real-time clock data are recorded 
with the pressure data. The data are recorded In EEPROMs which are capable of retaining the 
data Indefinitely at temperatures up to 257*F. After retrieval of the module, data are supplied 
to GSE equipment for further use. 

1.2 Specification Changes 

In order to meet the requirements Imposed by the SRB tests, the SAPMD must be 
redesigned to accommodate the new test environment. First, the housing of the SAPMD must 
be redesigned to survive a pressure of 1000 psi with at least a 50 percent overpressure 
capability. Protection of the internal electronic circuits from any mechanical stress Is 
Important for both reliability and accuracy. Second, a new pressure sensor must be selected 
which can measure pressures from 14.7 to 1000 psi with an accuracy of one percent FS over 
an ambient temperature range of 100 to 300'F. Third, the battery power supply must be 
modified to provide a lifetime of 2400 hours (100 days) of power-down operation. Forth, a new 
circuit must be added to allow an external hard-wired control line to activate the system prior 
to ignition. This circuit replaces the vibration sensor used to detect launch. 
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2.0 TECHNICAL APPROACH 

The following paragraphs describe the technical work on the three tasks required to 
modify the SAPMD design for high pressure measurements. 

2.1 Mechanical Design 

The housing of the modified SAPMD shall be designed for operation at 1000 PSIA 
and 185'F. The housing of the monitor as shown In Figure 1 will contain the electronic 
circuits, batteries, and pressure transducer. The bottom cover of the housing Is removable to 
provide access to the batteries and the data connector. The cover Is sealed with an O-ring to 
Insure that the Internal pressure does not rise above 50 PSIA. The Internal pressure must be 
limited since the batteries are sealed units and cannot withstand the high external ambient 
pressure. The housing structure shall be designed to withstand a maximum of pressure of 
2000 PSIA to provide a 100% overpressure safety factor. If higher over-pressures are expected, 
the housing design can be modified either by the use of higher strength materials or by an 
increase In housing dimensions. The proposed design incorporates 300 series stainless steel 
as the housing material. The proposed design has no mounting holes assuming the unit will 
either be clamped or bonded In position. The design may be readily changed to provide 
attachment points If so required. 

2.2 Electronic Design Changes 

The changes in the electronic design of the SAPMD will be primarily In the start 
and stop command circuitry and. If necessary, to the bias circuit of the high-pressure 
transducer. The external start command will require additional circuitry Included on the new 
battery board which will contain four (4) model LTC-7PN lithium batteries. 

The start command will be controlled by a pair of wires connected to the high- 
pressure feed-thru of the SAPMD and routed outside the nozzle opening to a relay. This relay 
operation will be under control of the local firing-range officials and will be operated prior to 
ignition. 


The contact closure activates a latch circuit Inside the SAPMD which In turn 
enables a micro-powered voltage regulator to supply +5V to the SAPMD and commences 
recording pressure data. After a 160-second sampling period, the SAPMD returns to a power- 
down condition where it remains until turned back on by a command to the latch. This allows 
the system to.be restarted in case of a misfire or delay. 

The GSE will be used for Interrogation, only, and will operate In the same manner 
as before. Including supplying power to the SAPMD during Interrogation. 

While the SAPMD Is In the power-down mode, the power drain will be less than 20 
microamps of quiescent current of the regulator and latch circuitry. 



2.3 


Pressure Transducer 


The pressure transducer selected Is a standard Kultte XT- 190 series ruggedized 
Integrated sensor type absolute pressure transducer. The transducer Is available with a 
maximum operating temperature of 350’F with a temperature compensated range of 100 to 
300'F. The maximum change In sensitivity over the 100 to 300’F range Is +/- 4.0 % with a 
repeatability of 0.05% of full scale with a 10 Vdc excitation voltage; the nominal output of the 
sensor is 100 mV full scale. The 8-bit resolution of the existing SAPMD A/D converter provides 
a theoretical resolution of 1000 psi/256 counts or 3.9 psi for the system. Actual measured 
performance of the present system indicates that a noise level of +/-3 LSB can be expected 
which gives a +/-11.7 psi noise level for the pressure measurements which combined with +/-3 
psi non-linearity and hysteresis and 0.5 psi repeatability gives an error factor of +/- 15.2 psi for 
single point measurements. The temperature coefficient of the transducer gives an expected 
error of +/-40 psi. The frequency response of this transducer will allow it to track the sum of 
the average pressure and the Instantaneous acoustic pressure. 

2.4 Battery Design 

The required longer operational lifetime of the SAPMD and some additional power 
requirements by the pressure sensor will require more available battery power. The present 
batteiy power supply consists of two 3.4V lithium cells connected In series to supply a nominal 
6.8V to a linear regulator which reduces the voltage to 4.5V for the electronic circuits. To 
Increase the battery lifetime, four cells will be used In a series-parallel arrangement to supply 
6.8V at twice the amp-hr rating of the existing supply and will be regulated down to 5V for the 
supply of the electronic circuits by a micro-powered regulator on the new battery board. 
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HP.SAPMD GSE SOFTWARE LISTINGS 


PACKING . LST 


January 3, 1989 


The following files are include with this distribution: 


HPSGA 

EXE 

72520 

1-03-89 

5 : 06p 

Executable Program 

README 

HP 

2765 

1-03-89 

5 : 53p 

Program Notes 

PACKING 

LST 

2198 

1-03-89 

6 : 23p 

This file 

HPSGA 


1284 

1-03-89 

3 : 47p 

MAKE file for HPSGA 

HPSGALNK 

LNK 

121 

1-03-89 

3:48p 

Link command file for HPSGA 

CMDINT 

C 

30491 

12-19-88 

6 : 09p 

C Source Files 

DBCMD 

C 

9472 

1-01-80 

12:06a 


DEBUG 

C 

3468 

1-03-89 

3 : 50p 


DIPRESS 

C 

6561 

1-03-89 

4 : OOp 


ERROR 

C 

2745 

12-28-88 

12:32p 


HPSGA 

C 

264 

12-28-88 

1: 59p 


MENU 

C 

3860 

1-03-89 

5:05p 


PRPRESS 

C 

2800 

1-03-89 

4 : 07p 


RECOVER 

C 

4122 

12-29-88 

4: 29p 


SELFTEST 

C 

4332 

1-03-89 

5 : 03p 


STATUS 

C 

2359 

1-03-89 

3 : 51p 


SUPGLOB 

C 

9874 

1-03-89 

4 : 04p 


WINDOW 

C 

11136 

1-01-80 

4 : 05p 


CON 10 

ASM 

2304 

1-01-80 

10:36a 

Assembly Source Files 

FIO 

ASM 

8320 

1-01-80 

3 : 17p 


_WINDOW 

ASM 

7061 

12-19-88 

6: 25p 


CONIO 

LST 

5501 

12-19-88 

6:26p 

Assembly List Files 

FIO 

LST 

17655 

12-19-88 

6: 26p 


_WINDOW 

LST 

16591 

12-19-88 

6 : 25p 


CONIO 

CRF 

749 

12-19-88 

6 : 26p 

Assembly Cross Reference Files 

FIO 

CRF 

2937 

12-19-88 

6: 26p 


_WINDOW 

CRF 

2378 

12-19-88 

6 : 25p 


HPSGA 

MAP 

17359 

1-03-89 

5 : 06p 

Link map for HPSGA 

CMDINT 

OBJ 

5872 

1-03-89 

4 : 09p 

Object Modules 

CONIO 

OBJ 

167 

12-19-88 

6 : 26p 


DBCMD 

OBJ 

2242 

1-03-89 

4 : 06p 


DEBUG 

OBJ 

1475 

1-03-89 

4 : 09p 


DIPRESS 

OBJ 

2297 

1-03-89 

4 : 07p 


ERROR 

OBJ 

1261 

1-03-89 

4 : 05p 


FIO 

OBJ 

790 

12-19-88 

6 : 26p 


HPSGA 

OBJ 

965 

1-03-89 

4 : 05p 


MENU 

OBJ 

2036 

1-03-89 

5 : 05p 


PRPRESS 

OBJ 

1636 

1-03-89 

4 : 07p 


RECOVER 

OBJ 

1203 

1-03-89 

4 : 07p 


SELFTEST 

OBJ 

1654 

1-03-89 

5 : 05p 


STATUS 

OBJ 

1194 

1-03-89 

4 : 07p 


WINDOW 

OBJ 

2261 

1-03-89 

4 : 05p 


WINDOW 

OBJ 

639 

12-19-88 

6 : 25p 




# make file for hpsga 

supglob.c : \include\stdio. h \include\process .h \include\stdlib.h 

m supglob.c #allow change to supglob so that all else will compile 

hpsga. obj : hpsga. c supglob.c 
cl /I\sapmd hpsga. c /c 

window. obj : window. c supglob.c 
cl /I\sapmd window. c /c 

error. obj : error. c supglob.c 
cl /I\sapmd error. c /c 

dbcmd.obj : dbcmd.c supglob.c 
cl /I\sapmd dbcmd.c /c 

menu. obj : menu.c supglob.c 
cl /I\sapmd menu . c /c 

prpress.obj : prpress.c supglob.c 
cl /I\sapmd prpress.c /c 

status . obj : status . c supglob . c 
cl /I\sapmd status. c /c 

dipress. obj : dipress. c supglob.c 
cl /I\sapmd dipress. c /c 

recover. obj : recover. c supglob.c 
cl /I\sapmd recover. c /c 

self test. obj : selftest.c supglob.c 
cl /I\sapmd selftest.c /c 

cmdint.obj : cmdint.c supglob.c 
cl /I\sapmd cmdint.c /c 

debug. obj : debug. c supglob.c 
cl /I\sapmd debug. c /c 

_window.obj : _window.asm 
masm _window. asm , , , ; 

conio.obj : conio.asm 
masm conio.asm , , , ; 

fio.obj : fio.asm 

masm fr^). asm, , , / 

hpsga.exe : hpsga. obj window. obj _window.obj error. obj dbcmd.obj conio.obj \ 

fio.obj menu. obj prpress.obj status. obj dipress. obj recover. obj self test. obj \ 

cmdint . obj debug . obj 
link (Shpsgalnk. Ink 



/* 

/* C M D I N T 

/* 

/* Command and interrogate the SAPMD. 

/************************************************* 
7 ' /* 


11 : 


V 

V 

V 

V 
*/ 

V 

V 


dude <supglob.c> 


/* locate global data 

V 



/* 

V 

nt() 


/* command/interrogate SAPMD 

*/ 

(int day, 


/* date day 

*/ 

hh. 


/* hh:mm:ss 

*/ 

mmss [2} , 


/* ... 

*/ 

cmd, 


/* command 

V 

i; 


/* iteration variable 

V 

unsigned char adrct[3]; 


/* address and count 

V 

unsigned char *tptr; 


/* time pointer 

*/ 

unsigned long ticks; 


/* ... 

V 

screen . lines++ ; 


/* add line for bottom 

*/ 

screen . cury++ ; 


/* ... 

V 

menu (2,1); 


/* display menu 

V 

while ( 1 ) 


/* loop forever . . . 

V 

(wchs ( CR ) ; 


/* new line 

V 

prompt (">"); 


/* type prompt character 

*/ 

if ( (i=rdln( ) )==LEFT | 

| i==H0ME) 

/* return to top menu? 

*/ 

( screen . lines — ; 


/* restore screen size . . . 

V 

screen . cury — ; 


/* ... 

*/ 

return ( 0 ) ; } ; 


/* > return 

*/ 

switch ( scan ( ) ) 


/* look for command 

V 



/* 

*/ 


************************************************ 

/* 

/* SG, SM: Set GMT, MET 

/* 

^/************************************************* 

/* 

(case SG: /* set-gmt 

cmd=SETGMT ; /* establish SAPMD command 

goto 11/ /* 

case SM: /* set-met 

cmd=SETMET; /* establish command 

/* 

if ( scan ( ) ==NUMBER && (day=acc)<=365) /* get day ... 
if ( scan( )==SLASH) /* eat ’/' 

if ( scan( )==NUMBER && (hh=acc)<24) /* get hour ... 

(for (i=0;i<2;i++) /* get minutes and seconds 

(if ( scan( )==COLON) /* get 

if (scan( )==*NUMBER && (mmss [i] =acc) <60 ) 
continue; /* next iteration 
break;}; /* exit loop on error 

if (i>=2) /* : hh : ss present? 

if (scan( )==E0L) /* good terminator? 

( ticks=day*0x2a3001+ ( unsigned long ) hh*7200+ 
mmss [0] *120+mmss [ 1] *2 ; /* 1/2 secs*/ 
if (! sacmd(cmd, sticks, 4 ) || rdsg()!=ACK) 

p_er ror ( BADSAPMD ) ; /* bad response */ 
break;}}; /* next command */ 

/* strange command */ 

/* next */ 

/* V 

t-k it*****************'************************'*'***** */ 

V 

*/ 

V 


V 

V 

V 
*/ 

V 

V 

V 
*/ 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 


/* 

/* 

/* 

/* 


error ( BADCMD ) ; 
break ; 


TM: read GMT, MET 


/ 







/* */ 

case TM: /* read GMT */ 

if (scan( )==EOL) /* check for good command */ 

[ adrct [ 0 ] =GMTADR ; /* point to memory */ 

adrct [1] =8; /* send byte count */ 

if ( ! sacmd(DUMPRAM, adrct, 2) || versg ( RAMDATA ) ) /* issue */ 

{ p_er ror ( BADSAPMD ) ; /* strange response */ 

break;}; /* next command */ 

rdtime();}; /* read and display times */ 

break; /* next */ 

/* V 

y'************************************************* */ 

/* */ 

/* DR: Dump 80C51 ram */ 

/* */ 

/************************************************* */ 

/* */ 

case DR: /* dump 80C51 ram */ 

schex( ) ; /* get address */ 

adrct [0]=acc; /* save parameter */ 

if (acc<=0x7f) /* check range */ 

[adrct [1] =16; /* default byte count */ 

if (scan( )==COMMA) /* check for count */ 

[if ( scan ( ) ==NUMBER ) /* a number there? */ 

[adrct [1] =acc & Oxff; /* make good number */ 

scan();} /* get EOL */ 

else /* no number */ 

[ err or ( BADCMD ) ; /* strange command */ 

break;}}; /* next */ 


if (token==EOL) /* check for garbage */ 

[if ( ! sacmd(DUMPRAM, adrct, 2) || versg ( RAMDATA ) ) 

p_error ( BADSAPMD ) ; /* print error */ 

else /* command ok */ 

dump( adrct [0] , adrct [1] ) ;/* read and print resp. */ 
break;}}; /* next */ 

error ( BADCMD ) ; /* strange command */ 

break; /* next */ 

/* */ 

************************************************ */ 

/* */ 

/* DS: Dump 80C51 SFR */ 

/* */ 

y'************************************************* * / 

/* */ 

case DS: /* dump SFR */ 

if (schex( )==NUMBER && (adrct [0]=acc) >0x7 f && acc<=255) /* */ 

if ( scan( )==E0L) /* good command? */ 

[if (! sacmd(DUMPSFR, adrct, 1) || versg ( SFRDATA ) ) 

p_error (BADSAPMD) ; /* send error */ 

else /* */ 

{ adrct [1]=1; /* fake byte count */ 

dump( adrct [0] , adrct [1] ) ; /* display SFR contents*/ 
break,-}; /* next */ 

error ( BADCMD ) ; /* strange command */ 

break; /* next */ 

/* */ 

y'’************************************************* */ 

/* */ 

/* DE: Dump external memory */ 

/* */ 

/************************************ ************* */ 

/* */ 

case DE: /* dump 80C51 ram */ 

schex(); /* get address */ 

adrct [0] =acc; /* save parameter */ 

adrct [l]=acc>>8; /* . . . */ 



adrct [2} =16; /* default byte count */ 

if (scan( )==COMMA) /* check for count */ 

[if ( scan ( ) ==NUMBER ) /* a number there? */ 

{adrct [2] =acc & Oxff; /* make good number */ 

scan();} /* EOL */ 

else /* no number */ 

[ err or ( BADCMD ) ; /* strange command */ 

break;}}; /* next */ 

if (token==EOL) /* check for garbage */ 

[if ( !sacmd(DUMPEXT,adrct,3) || ver sg ( EXTDATA ) ) 

p_error(BADSAPMD) ; '• /* print error */ 

else /* command ok */ 

dump ( adrct [1] < <8 | adrct [0] , adrct [2] ) ; /* read, print */ 
break;}}; /* next */ 

error (BADCMD) ; /* strange command */ 

break; /* next */ 

/* */ 

/* */ 

/* ER: Enter 80C51 ram */ 

/* */ 

y'****************-********************************* */ 

/* */ 

case ER: /* enter ram */ 

schex(); /* get address */ 

i=acc; /* save address */ 

if (i<=127) /* check for good address */ 

if (scant )==E0L) /* check for good command */ 

{ enter ( DUMP RAM , LOADRAM , i , 0x7 f , 1 , RAMDATA ) ; /* ram */ 

break;}; /* next */ 

error ( BADCMD ) ; /* strange command */ 

break; /* next */ 

/* • */ 

/* */ 

/* ES: Enter 80C51 SFR */ 

/* */ 

/* */ 

case ES: /* enter ram */ 

schex(); /* get address */ 

i=acc ; /* save address */ 

if (i<=255 && i>=128) /* check for good address */ 

if (scan( )==E0L) /* check for good command */ 

( enter ( DUMPSFR , LOADSFR , i , 0x7 f , 1 , SFRDATA ) ; /* load SFR*/ 
break;}; /* next */ 

error ( BADCMD ) ; /* strange command */ 

break; /* next */ 

/* */ 

/ic'kicic'kic'kic'k-k'kic'kic'k'k'kic'k’kic’kic'k'k'k’k'k'k'k'k'k'klt'k'k'kicic'klcic'kfticlrlc'k'k * / 

/* */ 

/* EE: Enter EEPROM */ 

/* */ 

^************************************************* * / 

/* */ 

case EE: /* enter ram */ 

schex ( ) ; /* get address */ 

i=acc ; /* save address */ 

if (scan( )==E0L) /* check for good command */ 

[ en ter (DUMPEXT, LOADEE, i , Oxf fff , 2, EXTDATA ) ; /* load EEPROM*/ 
break;}; /* next */ 

error ( BADCMD ) ; /* strange command */ 

break; /* next */ 

/* */ 

y'Xielcicicici'iticicicIc-k'kic'kir'kiic'kic'kiit-kic'ki't'k'k'k'kir-kXicic'k'k'k'k'k'kic'k-k'k'k'klt * / 

/* */ 



/* P: Program file into EEPROM */ 

/* */ 

y* ************************************************ * / 

/* */ 

case P: /* program file */ 

if (i=prog()) error (i); /* read command */ 

break; /* next */ 

/* */ 

y* ************************************************ * y 

/* */ 

/* MON: Toggle ram display window */ 

/* */ 

y************************************************* * y 

/* V 

case MON: /* toggle monitor window */ 

if (m5->disp) /* monitor window displayed? */ 

menu(2,0); /* restore menu */ 

else /* menu displayed */ 

menu(4,0); /* display monitor window */ 

break; /* next */ 

/* V 

y* ************************************************ * y 

/* v 

/* CMD: Execute command file */ 

/* ’ */ 

y************************************* ************ * y 

/* */ 

case CMD: /* execute command file */ 

if ( i=excfile( ) ) error(i); /* open command file */ 

break; /* next */ 

/* */ 

y*****************************' ******************** * y 

/* */ 

/* LA: Set up for rubber launch */ 

/* */ 

y* ************************************************ * y 

/* V 

case LA: /* rubber launch */ 

if ( scan( )==NUMBER && (day=acc)<=365) /* get day ... */ 

if ( scan ( ) ==SLASH ) /* eat '/' */ 

if ( scan ( ) ==NUMBER && (hh=acc)<24) /* get hour ... */ 

{for ( i=0 ;i<2 ;i++) /* get minutes and seconds */ 

{if ( scan( )==COLON) /* get */ 

if ( scan ( ) ==NUMBER && (mmss [i] =acc ) <60 ) 

continue; /* next iteration */ 

break;}; /* exit loop on error */ 

if (i>=2) /* : hh: ss present? */ 

if ( scan( )==E0L) /* good terminator? */ 


{ ticks=day*0x2a3001+ ( unsigned long ) hh*7 200+ 
mmss [0] *120+mmss [ 1] *2 ; /* 1/2 secs*/ 
if ( (cfile=fopen( "la.cmd" , "rb" ) )==NUL 
{ error ( NOLAFILE ) ;/* no la.cmd*/ 
break;} /* bail out */ 

else /* good open */ 

cmdfile=l; /* flag cmd file */ 
tptr=(char *) sticks; /* point to gmt 
adrct[0]=0; /* make address */ 

adrct [l]=0xb0; /* . . . */ 

for (i=0;i<4 ;i++) /* plant gmt */ 
{adrct [2} =*tptr++; /* get tim*/ 
if ( ! sacmd ( LOADEE , adrct, 3 ) || rdsg( ) ! 

[ p_er ror ( BADS APMD ) ; 
goto 12;}; /* bail out */ 

adrct [0} ++;} ;/* next byte */ 
break;}}; /* next command */ 

/* strange command */ 


error ( BADCMD ) ; 





/* 



*/ 

/****************** ** **************** ************* 



V 

/* 





*/ 

/* 

R P B Y T E 




*/ 

/* 





*/ 

/* 

Read and display byte. Check for errors. 



V 

/* 





V 

/************************************************* 



V 



/* 



V 

rpbv te ( ) 

/* 

read and print byte 


*/ 


[unsigned char rch; 

/* 

character read 


*/ 


int i; 

/* 

iteration variable 


V 


for (i=0 ;i< 2 ; i++ ) 

/* 

read 2 bytes 


V 


[if ( ( rch=rdsg ( ) ) ==ABORT ) 

/* 

stop? 


*/ 


{ p_error ( BADSAPMD ) ; 

/* 

strange response 


V 


return ( 0 ) ; } ; 

/* 

bail out 


V 


wchs ( rch ) ; } 

/* 

display character 


*/ 


return ( 1 ) ; } 

/* 

> return 


*/ 



/* 



*/ 

/************************************************* 



V 

/* 





V 

/* 

R D T I M E 




*/ 

/* 





*/ 

/* 

Read and display GMT and MET. 




V 

/* 





V 

/************************************************* 



V 



/* 



*/ 

rdtime( ) 

/* 

read times 


V 


[static char *gmetxt [ ] =[ "GMT: ","MET: "}; 

/* 

time text 


*/ 


int i, 

/* 

iteration variable 


*/ 


j , 

/* 

iteration variable 


V 


k, 

/* 

iteration variable 


*/ 


jtime[5] ; 

/* 

GMT 


*/ 


union [unsigned char byt[4]; 

/* 

time value 


*/ 


unsigned long ticks;} time; 

/* 

, . . 


V 


unsigned char timtxt [15]; 

/* 

decoded ascii time text 

V 


for ( i=0 ; i< 2 ; i++ ) 

/* 

read 2 times 


V 


[wchs (CR) ; 

/* 

new line 


*/ 


stype(gmetxt [i] ) ; 

/* 

print header 


*/ 


for ( j=0; j<4; j++) 

/* 

read 4 time bytes 


V 


[for ( k=0 ;k<2 ;k++ ) 

/* 

read 2 ascii bytes 


V 


if ( ( timtxt [k] =rdsg( ) )==ABORT) 

/* 

read time byte 


V 


[ p_er ror ( BADSAPMD ) ; 

/* 

strange response 


V 


return ( 0 ) ; } ; 

/* 

> return 


V 


timtxt [ 2 ] = ' \0 ' ; 

/* 

terminate string 


V 


time . byt [ j ] =bhex ( timtxt ) ; } ; 

/* 

convert hex ascii to 

int 

V 


dcdtime ( j time , time ) ; 

/* 

convert to ascii 


*/ 


printf ( "%3d/%2d: %2d: %2d. %ld" , jtime [0] , j time [1] , jtime[2] ,3time[3] , 



jtime [4] ) ;}} 

/* 

print time 


*/ 



/* 



*/ 

/************************************************* 



*/ 

/* 





V 

/* 

DCDTIME 




*/ 

/* 





*/ 

/* 

Convert binary time to ascii string. 




V 

/* 





*/ 

/************************************************* 



V 



/* 



*/ 

dcdtime ( bt ime , atime ) 

/* 

decode time 


*/ 


int btime [ ] ; 

/* 

binary time 


V 


unsigned long atime; 

/* 

destination string 


V 


[static unsigned long cnv []= [0x2a3001 , 72001, 1201, 21} ; /* conversion 

const*/ 


int i; 

/* 

iteration variable 


V 


for ( i=0 ; i<4 ; i++ ) 

/* 

convert time 


V 


[btime [i] =atime/cnv[i] ; 

/* 

get day 


V 


a t ime-=bt ime [ i ] * cnv [ i ] ; } ; 

/* 

get remainder 


V 



error exit 
next 


12 : 


break ; 


/* 

/* 

/* 


/* 

/* EOL 

/* 

/* 

case EOL: /* EOL 

break; /* ignore blank line 

/* 

/* 

/* QUIT 

/* *********************************************** 

/* 

case Q: 

scrup (0,0,24,79,0); 
i=inp(0x21) ; 
outp ( 0x2 1 , i 1 0x10) ; 
exit ( 0 ) ; 
default : 

error ( BADCMD ) ; } } } 


/* quit 

/* clear screen 
/* read 8259 interrupt mask 
/* stop serial interrupts 
/* stop . 

/* otherwise 
/* unrecognized command 
/* 

/* 

/* H E X W 

/* 

/* Print the passed word in hex. 

/* 

/* 

hexw( id,x) /* display hex word 

struct window *id; /* window id 

int x; /* data 

[hex(id,x>>8) ; /* display high ... 

hex ( id , x ) ; } /* ... and low 

/* 

/* 

/* H E X C 

/* 

/* Convert the passed nibble to hex ascii . 

/* 

/************************************************* 

/* 

char hexc(x) /* convert to hex ascii 

int x; /* nibble 

{x&=0xf ; /* get nibble 

return( (x<=9)?x+'0' :x-10+’A' ) ;} /* convert to ascii 

/* 

fit *****^************-**************************'**'*'*' 

/* 

/* HEX 

/* 

/* Print the specified byte at the current cursor position on the 

/* specified window. 

/* 

y-k-kicic-k-k-k-k^'k-k'kicic'k'k-k'k'k'k'k'k-k'k-k'k'k'k'kic'k'k'k'k'k-k'k'k'k'k-k'k'kir-ki^ic'kii: 

/* 

hex( id, x) /* print byte in hex 

struct window *id; /* window id 

int x; /* data 

[wchw(id,hexc(x>>4) ) ; /* print high nibble 


*/ 

V 
*/ 
*/ 

V 

V 

V 

V 
*/ 

V 

V 
*/ 

V 

V 

V 

V 

V 
*/ 

V 

V 
*/ 

V 
*/ 

V 
*/ 

V 

V 
*/ 

V 

V 

V 

V 
*/ 

V 
*/ 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 

V 

V 
*/ 
*/ 
*/ 

V 

V 

V 

V 

V 
*/ 

V 

V 

V 
*/ 

V 
*/ 

V 

V 

V 

V 
*/ 




purge ( ) ; 

/* empty garbage in buffer 

V 


if (sgch(cmd)) return(O); 

/* issue command byte 

*/ 


for (i=0;i<plen;i++) 

/* issue parameter bytes 

*/ 


(chex( *par++, hxcmd) ; 

/* convert parameter byte 

V 


for ( j=0; j<2/ j++) 

/* send bytes 

V 


if (sgch( hxcmd [ j ] ) ) 

/* issue byte and get resp. 

V 


return ( 0 ) ; } ; 

/* good response? 

V 


if (sgch(CR)) return(O); 

/* good termination? 

V 


return ( 1 ) ; } 

/* return good completion 

*/ 



/* 

V 

/************************************ ************* 

*/ 

/* 



V 

/* 

S G C H 


V 

/* 



*/ 

/* 

Send character to SAPMD and get response byte. 

*/ 

/* 



V 

/************************************************* 

*/ 



/* 

*/ 

sgch(cmdb) 

/* send character to SAPMD 

*/ 


int cmdb/ 

/* command character 

V 


[int rch; 

/* response byte 

*/ 


wr sg ( cmdb ) ; 

/* send byte 

V 


return (versg ( cmdb ) ) ; } 

/* return response 

V 



/* 

V 

/************************************************* 

*/ 

/* 



V 

/* 

VERSG 


V 

/* 



V 

/* 

Verify response from SAPMD 


V 

/* 



*/ 

/************ ************************************* 

*/ 



/* 

V 

versg(cmdb) 

/* verify response from SAPMD*/ 


int cmdb; 

/* command character 

V 


[int rch; 

/* response byte 

V 


rch=rdsg ( ) ; 

/* get response byte 

V 


if (rch==cmdb) return(O); 

/* good response? 

V 


while ( rch ! =ABORT ) 

/* abort command 

V 


[wrsg(ILNK) ; 

/* send abort command 

V 


rch=rdsg ( ) ;} ; 

/* get response 

V 


return ( 1 ) ; } 

/* return response 

V 



/* 

V 

/************************************************* 

V 

/* 



V 

/* 

DUMP 


V 

/* 



V 

/* 

Read and display dumped data. 


V 

/* 



V 

/* 

************************************************ 

*/ 



/* 

V 

dump ( addr , len ) 

/* dump memory 

V 


int addr. 

/* address 

V 


len; 

/* byte count 

*/ 


[int i, 

/* iteration variable 

*/ 


j / 

/* iteration variable 

V 


k; 

/* byte counter 

V 


for (i=len,-i>0 ;i-=16 ) 

/* count bytes displayed 

V 


[wchs (CR) ; 

/* new line 

V 


hexw( &screen , addr) ; 

/* display address 

V 


wchs 

/* separate address 

V 


wchs ( 1 '); 

/* 

V 


addr+=16 ; 

/* next address 

*/ 


k=0 ; 

/* printed byte counter 

V 


for ( j=i>16?16:i; j>0; j — ) 

/* count bytes on line 

*/ 


[wchs(k++==8? ' - ' : ' '); 

/* 

V 


if (!rpbyte()) return ( 0 );}}} ; 

/* read and print byte 

*/ 




wchw( id, hexc (x) ) ; } 

/* 

print low nibble 

*/ 



/* 


V 

/************************************************* 


*/ 

/* 




*/ 

/* 

C H E X 



V 

/* 




*/ 

/* 

Convert byte to ascii hex string. 



V 

/* 




*/ 

/************************************************* 


*/ 



/* 


V 

chex(byt, str) 

/* 

convert to ascii hex 

V 


unsigned char byt ; 

/* 

binary data 

V 


char *str; 

/* 

string 

V 


{ *str=hexc ( byt> > 4 ) ; 

/* 

convert high nibble 

*/ 


str++ ; 

/* 

next byte in string 

V 


* str=hexc ( byt ) ; } 

/* 

. . . and low 

V 



/* 


V 

/*■ 

************************************************ 


*/ 

/* 




V 

/* 

B H E X 



V 

/* 




*/ 

/* 

Convert ascii hex string to int. 



V 

/* 




V 

/*■ 

************************************************ 


*/ 



/* 


V 

bhex(hstr ) 

/* 

hex ascii string to int 

*/ 


char *hstr; 

/* 

character string 

*/ 


{int a; 

/* 

accumulator 

*/ 


a=0; 

/* 

clear accumulator 

*/ 


while ( *hstr ! = ' \0 1 ) 

/* 

convert until end 

*/ 


{a=a*16+( *hstr<= ' 9 1 ?*hstr- 'O': *hstr- 

'A'+io; 

I ; /* accumulate 

V 


hstr++ ; } ; 

/* 

next character 

V 


return ( a ) ; } 

/* 

return value 

*/ 



/* 


V 

/* 

*************************************** * * ******* 


V 

/* 




V 

/* 

ENTER 



V 

/* 




V 

/* 

Enter data into SC~1 memory. 



V 

/* 




V 

/** * ********************************************** 


V 



/* 


V 

enter ( cmd , cme , adr , maxadr , alen , dtype ) 

/* 

change target memory 

V 


int cmd. 

/* 

dump command 

V 


cme. 

/* 

enter command 

V 


adr. 

/* 

start address 

V 


maxadr , 

/* 

highest address 

V 


alen. 

/* 

address length 

V 


dtype ; 

/* 

response type 

V 


[int i. 

/* 

iteration variable 

V 


c, 

/* 

character counter 

*/ 


cflag; 

/* 

change flag 

V 


union [char bpar[3],- 

/* 

parameter list 

*/ 


int wpar;} cadr,- 

/* 


V 


while ( 1 ) 

/* 

forever . . . 

V 


[wchs (CR) ; 

/* 

new line 

*/ 


hexw ( sscreen , adr ) ; 

/* 

display address 

V 


wchs 

/* 

colon . . . 

V 


wchs ( ' ' ) ; 

/* 

. . . and space 

V 


for (i=0/i<8 ,-i++) 

/* 

8 bytes on line 

V 


{ cadr . wpar=adr++ ; 

/* 

plant address 

V 


cadr . bpar [ alen 1=1; 

/* 

. . . and byte count 

*/ 


if ( !sacmd(cmd / &cadr / cmd!=DUMPSFR?alen+l:l) | versg ( dtype ) ) 



[p_error( BADSAPMD) ; 

/* 

display message 

*/ 


return ( 0 ) ; } ; 

/* 

> return 

V 


if (!rpbyte()) return(O); 

/* 

get contents 

*/ 


wchs( ' . ' ) ; /* terminate data */ 

wchs( ' ' ) ; /* space */ 

acc=0; /* clear accumulator */ 

c=2; /* count characters to go */ 

cflag=0; /* flag no change */ 

while (c>=0) /* read forever */ 

if ( ( ch=toupper ( rdch ( ) ) ) !=(char)0xff ) /* character avail. */ 

switch (ch) /* check for activation char */ 

{case 'O': /* hex digits ... */ 

case ' 1 ' : /* . . . */ 

case ' 2 ' : /* . . . */ 

case ' 3 ' : /* . . . */ 

case ' 4 ' : /* . . . */ 

case ' 5 ' : /* . . . */ 

case ' 6 ' : /* . . . */ 

case ' 7 ' : /* . . . */ 

case ' 8 ' : /* . . . */ 

case ' 9 ' : /* . . . */ 

case ' A ' : /* . . . */ 

case ' B ' : /* . . . */ 

case ' C ' : /* . . . */ 

case 'D' : /* . . . */ 

case ' E ' : /* . . . */ 

case ' F ' : /* . . . */ 

if (c) /* 2 characters yet? */ 

{wchs(ch); /* write character */ 

c — ; /* count 1 character */ 

acc=acc*16+(ch<= ' 9 ' ?ch- ' 0 ' :ch- ' A' +10 ) ; 
cflag++;}; /* flag byte changed */ 

continue; /* next */ 

case ' ' : /* space */ 

for (;C>-1;C — ) wchs( ' '); /* space to next col. */ 

if (cflag) /* any change? */ 

[cadr.bpar [alen]=acc,- /* plant value */ 

if ( ! sacmd(cme,&cadr,alen+l) || rdsg()!=ACK) 

{ p_error ( BADSAPMD ) ; /* display message */ 

return(0 ) ; } } ; /* > return */ 

break; /* next */ 

case BACKSPACE: /* oops */ 

cflag=0; /* no change */ 

case CR: /* carriage return */ 

if (cflag) /* any change? */ 

[cadr .bpar [alen]=acc; /* plant value */ 

if ( ! sacmd(cme, &cadr , alen+1 ) || rdsg()!=ACK) 

[ p_error ( BADSAPMD ) ; /* display message */ 

return ( 0 ) ; } } ; /* > return */ 

return(l); /* return */ 

default: /* invalid character */ 

;}}}} /* ignore */ 

/* */ 

/* */ 

/* S A C M D */ 

/* */ 

/* Issue command to SAPMD. */ 

/* */ 

/* V 

sacmd(cmd,par / plen) /* issue GSE command */ 

int cmd, /* command byte */ 

plen; /* number of parameter bytes */ 

unsigned char *par; /* parameter bytes */ 

{unsigned char sch, /* response character */ 

hxcmd[2]; /* hex byte */ 

int i, /* iteration variable */ 

j ; /* iteration variable */ 



btime [4 ] =atime>0?5 : 0 ; } 

/* plant half sec 

V 



/* 

V 

/* 

************************************************ 

*/ 

/* 



V 

/* 

PROG 


*/ 

/* 



*/ 

/* 

Program hex file into EEPROM. 


V 

/* 



V 

/************************************ ************* 

*/ 



/* 

V 

prog( ) 

/* program file 

V 


[int i. 

/* iteration variable 

V 


cks, 

/* checksum 

V 


bet. 

/* byte count 

V 


off; 

/* offset 

V 


union [char a[3]; 

/* EEPROM address 

V 


int b;} addr; 

/* 

*/ 


char *ip, 

/* filename pointer 

V 


*ipt; 

/* • • • 

V 


FILE *hxf ; 

/* hex file pointer 

V 


char hxln [133] ; 

/* hex file record 

*/ 


skbl ( ) ; 

/* skip to filename 

V 


ip=iptr,- 

/* save filename start 

V 


line [ sizeof ( line ) -1] =CR ; 

/* terminate command for sure*/ 


of f=0 ; 

/* default offset 

V 


while (*iptr!=CR && *iptr !=',') iptr++; 

/* look for end-of-filename 

V 


ipt=iptr ; 

/* mark end-of-filename 

V 


if (scan( )==COMMA) 

/* offset present? 

V 


{ schex ( ) / 

/* get hex address 

V 


of f=acc ; 

/* change offset 

V 


if ( scan( ) ! =EOL) return(BADCMD);}; 

/* good command? 

V 


*ipt='\0 ' ; 

/* terminate filename 

V 


if ( (hxf=fopen(ip, "rb" ) )==NULL) return ( NOFILE ) ; /* file exist? 

*/ 


wchs ( CR ) ; 

/* new line 

*/ 


stype( "programming ..."); 

/* acknowledge 

*/ 


while ( 1 ) 

/* loop forever 

V 


[for ( i=0 ;i< sizeof (hxln) ;i++) 

/* read hex file record 

*/ 


[hxln [i]=fgetc(hxf ) ; 

/* read byte 

*/ 


if (feof(hxf)) 

/* early EOF? 

V 


[fclose(hxf ) ; 

/* close file 

V 


return ( BADFILE ) / } / 

/* send message 

V 


if (hxln [i]==LF) break;}; 

/* EOR? 

V 


if ( hxln [0] !=':') 

/* good record? 

V 


[ fclose(hxf ) ; 

/* early EOF? 

V 


return (BADFILE) ; } ; 

/* good record? 

*/ 


switch (bhx( shxln [7] ) ) 

/* check type 

V 


[case 0: 

/* data record 

V 


bct=bhx ( &hxln [ 1 ] ) ; 

/* get byte count 

V 


addr . a [ 1 ] =bhx ( shxln [ 3 ] ) ; 

/* get high address . . . 

V 


addr . a [ 0 ] =bhx ( &hxln [ 5 ] ) ; 

/* ... and low 

V 


ip=&hxln [9] ; 

/* point to data 

V 


cks=bct+addr . a [ 1] +addr . a [0] ; 

/* compute checksum 

V 


addr . b+=of f ; 

/* adjust for offset 

*/ 


for (i=0;i<bct;i++) 

/* convert data to binary 

V 


[cks+=bhx(ip) i 

/* ... for checksum 

V 


ip+=2; } ; 

/* next byte 

V 


if ( (-cks&Oxff ) !=bhx(ip) ) 

/* checksums match? 

*/ 


[ fclose(hxf ) ; 

/* close file 

V 


return (BADFILE) ; } ; 

/* return error 

V 


ip=&hxln [9] ; 

/* point at data 

*/ 


for ( i=0 ; i<bct ; i++) 

/* program data 

V 


[ addr . a [ 2 ] =bhx ( ip ) ; 

/* plant data 

V 


wchs ( CR ) ; 

/* new line . . . 

*/ 


hexw ( sscreen , addr . b ) ; 

/* print address . . . 

V 


wchs (':'); 

/* separate data 

V 


wchs ( ' ' ) ; 

/* 

V 



wchs ( ' '); 

/* 

V 


hex (& screen, addr .a [2] ) ; 

/* print data 

*/ 


if ( ! sacmd ( LOADEE , addr . a 

,3) || rdsg()!=ACK) /* issue cmd*/ 


[f close (hxf ) ; 

/* close file 

*/ 


p_error ( BADS APMD ) ; 

/* signal error 

*/ 


return ( 0 ) ; } ; 

/* return no error 

V 


ip+=2; 

/* next byte 

V 


addr . b++ ; } ; 

/* next address 

V 


break ; 

/* next record 

V 


case 1: 

/* eof 

V 


return ( 0 ) ; 

/* file ok 

V 


default : 

/* else 

*/ 


return (BADFILE) ;}}} 

/* strange file 

V 



/* 

*/ 

/********************* ******* ******** ************* 

V 

/* 



V 

/* 

E X C F I L E 


*/ 

/* 



*/ 

/* 

Open command file. 


*/ 

/* 



V 

/* 

************************************************ 

*/ 



/* 

V 

excfile( ) 

/* open command file 

*/ 


{int i; 

/* iteration variable 

*/ 


skbl ( ) ; 

/* skip blanks to filename 

V 


if (*iptr==CR) return ( NOFILE ) ; 

/* null line? 

V 


for (i=0;i<sizeof (line) ;i++) 

/* stomp EOL 

V 


if (line[i]==CR) line[i]=0; 

/* 

V 


if ( (cfile=fopen(iptr, "rb" ) )==NULL) 

/* file exist? 

V 


return (NOFILE) ; 

/* return error 

V 


else 

/* file opened 

*/ 


[cmdf ile=l ; 

/* flag command file open 

V 


return ( 0 ) ; } } 

/* good file 

V 



/* 

V 

/************************************************* 

V 

/* 



V 

/* 

BHX 


V 

/* 



*/ 

/* 

Convert ascii hex byte to int. 


*/ 

/* 



V 

/*** ********* ************************ ************* 

V 



/* 

*/ 

bhx ( hstr ) 

/* hex ascii string to int 

V 


char *hstr; 

/* character string 

V 


{int a,i; 

/* accumulator 

V 


a=0; 

/* clear accumulator 

V 


for ( i=0 ; i < 2 ; i++ ) 

/* convert until end 

V 


{a=a*16+( *hstr<= ' 9 ' ?*hstr- 'O': *hstr- ' 

A '+10); /* accumulate 

*/ 


hstr++ ; } ; 

/* next character 

*/ 


return ( a ) ; } 

/* return value 

*/ 



/* 

V 

/* 

************************************************ 

V 

/* 



V 

/* 

P E R R 0 R 


V 

/* 



*/ 

/* 

Print error and purge SAPMD response 

buffer. 

V 

/* 



V 

/************************************************* 

*/ 



/* 

V 

P_ 

error (msg) 

/* error and purge 

V 


int msg; 

/* message number 

V 


{error (msg) ; 

/* signal error 

V 


purge ( ) ;} 

/* empty response buffer 

V 



/* 

V 



/*****************************/ 



/* **************************************************************************** / 

/* 





*/ 

/* 

SCAN 




V 

/* 





*/ 

/* SCAN acquires user commands and turns 

them 

into lexical units 

for 

*/ 

/* processing by callers. The 

integer returned is 

the token id, which 

is 

V 

/* also placed in the global variable 'token' . 




*/ 

/* 





V 

/**** *************** ********************* ********* 



*/ 



/* 



V 

# include <supglob.c> 


/* 

locate global data 


*/ 



/* 



V 

scan ( ) 


/* 

SCAN 


V 

[acc=0; 


/* 

clear number accumulator 

*/ 

skbl ( ) ; 


/* 

skip blanks 


V 

if (*iptr>='0' && *iptr<= ' 

9' ) 

/* 

check for number 


*/ 

[while (*iptr>='0' && * 

iptr<= ' 9 ' ) 

/* 

accumulate # 


V 

acc=acc*10+*iptr++- 

'O' / 

/* 

add digit 


V 

return ( token=NUMBER ) ; } 


/* 

return a number 


*/ 

else 


/* 

check for identifier/mark 

*/ 

return ( fid( ) ) ; } 


/* 

search for id/mark 


V 



/* 



V 

/******************** ***************************** 



*/ 

/* 





*/ 

/* 

SKBL 




V 

/* 





V 

/* Skip blanks . 





*/ 

/* 





*/ 

/************************************************* 



*/ 



/* 



V 

skbl ( ) 


/* 

eat blanks 


V 

[while (*iptr==' ') iptrt+; 

} 

/* 

skip blanks 


V 



/* 



V 

/************************************************* 



*/ 

/* 





V 

/* 

FID 




V 

/* 





V 

/* Match the longest string in the input 

line 



V 

/* 





V 

/* ************************************************ 



*/ 



/* 



V 

fid() 


/* 

find identifier 


*/ 

[int in- 


/* 

iteration variable 


*/ 

struct name [char *ntxt; 


/* 

identifer 


V 

int tkn ; } ; 


/* 

token 


V 

char *nm, 


/* 

pointer to command 

text 

*/ 

*npt/ 


/* 

input pointer 


*/ 

static struct name idnt [ ] = 

["DE",DE, 

/* 

dump code 


V 


"DR" ,DR, 

/* 

dump ram 


V 


"DS",DS, 

/* 

dump SFR 


V 


"EE", EE, 

/* 

enter EE PROM 


V 


"ER" , ER, 

/* 

enter ram 


V 


"ES" ,ES, 

/* 

enter SFR 


V 


"LA" ,LA, 

/* 

rubber launch 


V 


"MON" , MON, 

/* 

monitor 


V 


"P" ,P, 

/* 

program 


V 


"SG" ,SG, 

/* 

set GMT 


V 


"SM" , SM, 

/* 

set MET 


V 


"TM" ,TM, 

/* 

time 


V 


"Q”,Q, 

/* 

quit 


V 


COMMA, 

/* 

comma 


V 


COLON, 

/* 

colon 


V 


"/", SLASH, 

/* 

slash 


V 


,CMD, 

/* 

at-sign 


V 


"=" , EQU} ; 

/* 

equal 


V 

for ( i=0 ; i<sizeof ( idnt )/sizeof ( struct name);i++) /* search for match 

V 




(nm=idnt[i] . ntxt; 

/* 

point at command 

*/ 


for (npt=iptr;*nm==*iptr;iptr++) nm++; 

/* 

compare strings 

*/ 


if (*nm=='\0' 

) 

/* 

a match? 

*/ 


return ( token=idnt [ i ] . tkn ) ; 

/* 

. . . yep, return token 

*/ 


iptr=npt; } ; 


/* 

back up input 

*/ 


if (*iptr==CR) return ( token=EOL) ; 

/* 

carriage return? 

V 


return ( token=BADCHAR ) ; } 

/* 

strange identifier 

V 




/* 


V 

/**************************** ********************* 


V 

/* 





V 

/* 


SCHEX 



*/ 

/* 





*/ 

/* 

SCHEX attempts to read hex numbers. 



V 

/* 





*/ 

/****************************** ******* ************ 


V 




/* 


V 

schex ( ) 


/* 

scan hex number 

V 


[acc=0; 


/* 

clear accumulator 

*/ 


while ( * iptr== ' 

) iptr++; 

/* 

skip blanks 

V 


token=NUL ; 


/* 

guess missing number 

V 


while ( 1 ) 


/* 

loop till end-of-number 

*/ 


switch (*iptr) 

/* 

what is the first char? 

V 


(case 'O' 


/* 

check for numbers 

*/ 


case ' 1 ' 


/* 


V 


case ' 2 ' 


/* 


V 


case ' 3 ' 


/* 


V 


case ' 4 ' 


/* 


V 


case ' 5 ' 


/* 


V 


case ' 6 ' 


/* 


V 


case ' 7 ' 


/* 


V 


case ' 8 ' 


/* 


V 


case ' 9 ' 


/* 


*/ 


acc=acc*16+*iptr++- 'O'; 

/* 

accumulate 

V 


token= 

= NUMBER ; 

/* 

a number 

*/ 


break 


/* 

next 

V 


case 'A' 


/* 


V 


case 'B' 


/* 


V 


case 'C 


/* 


V 


case 'D' 


/* 


V 


case 'E' 


/* 


*/ 


case * F ' 


/* 


*/ 


acc=acc*16+*iptr++- ' A ' +10 ; 

/* 

accumulate 

V 


token= 

NUMBER ; 

/* 

a number 

V 


break 


/* 

next 

V 


default: 


/* 

end-of-number 

*/ 


return ( token ) ; } ; } 

/* 

return 

*/ 




/* 


V 

/* 

************************************************ 


*/ 

/* 





V 

/* 


PROMPT 



V 

/* 





V 

/* 

Prompt for user keyboard input. 



V 

/* 





V 

/*' 

************************************************ 


V 




/* 


*/ 

prompt ( prmpt ) 


/* 

ask user 

V 


char * prmpt; 


/* 

prompt string 

*/ 


(scrup( 24,0,24,79, 

■0); 

/* 

erase line 

V 


movcurs (24,0); 


/* 

position cursor 

*/ 


for ( ; *prmpt ! = ' \0 ' ,-prmpt++ ) wch( * prmpt );} ; 

/* 

write prompt string 

V 




/* 


*/ 

/************************************************* 


*/ 

/* 





V 

/* 


R D L N 



V 

/* 





V 

/* 

Read keyboard 

input until an activation 

character is encountered. 

V 



/* */ 


/********************************************* 


*/ 



/* 

V 

rdln() 

/* read input 

*/ 


{int j; 

/* iteration variable 

V 


static char splch []={'H','P','M','K', 

/* special chars, (keypad) 

*/ 


' Q ' , 'I' , ' R ' , 'S' , 

/* 

V 


' G 0 ; 

/* 

V 


static char spltkn [] ={ UP, DOWN, RIGHT, LEFT, 

/* special tokens (keypad) 

V 


PGDN, PGUP, INS, DEL, 

/* 

V 


HOME , ND , CTA , CTR } ; 

/* 

V 


iptr=line; 

/* point to buffer start 

V 


while ( 1 ) 

/* poll until return 

*/ 


if ( (ch=rdch( ) ) !=(char)0xff ) 

/* character available? 

V 


switch (ch) 

/* check for activation char 

*/ 


[case CTRLC: 

/* check for control-C 

V 


j=inp( 0x21) ; 

/* get 8259 mask 

V 


outp(0x21, j 1 0x10) ; 

/* stop serial interrupts 

V 


popcurs( ) ; 

/* restore any saved cursor 

*/ 


exit ( 0 ) ; 

/* exit 

V 


case CR: 

/* carriage return 

*/ 


*iptr=CR; 

/* plant character 

*/ 


iptr=line; 

/* point at start of input 

V 


return ( EOL ) ; 

/* return character 

V 


case SPL: 

/* special characters 

*/ 


ch=rdch( ) ; 

/* get 2nd char in sequence 

*/ 


for ( j=0 ,• j <sizeof ( splch) ; j++) /* look for special char. 

V 


if (splch[j]==ch) 

/* is this it? 

*/ 


{if ( spltkn [ j]==DEL) /* del? 

V 


[ch=BACKSPACE; 

/* fake backspace 

V 


goto 11; } ; 

/* handle as backspace 

V 


*iptr=CR; 

/* plant character code 

*/ 


iptr=line; 

/* point at start of input 

V 


return { spltkn [ j ] ) 

; } ; /* return it 

*/ 


break ; 

/* not found, ignore 

V 

11: 


/* for DEL 

V 


case BACKSPACE: 

/* backspace 

V 


if (line!=iptr) 

/* characters on line? 

V 


{wrch(ch) ; 

/* backspace . . . 

V 


wrch( ' '); 

/* ... stomp character . . . 

V 


wrch(ch) ; 

/* ... and backspace again 

V 


— iptr ; } i 

/* back up index 

V 


case LF: 

/* ignore line feed 

V 


break ; 

/* next character 

V 


default: 

/* other characters 

V 


i f ( echo ) 

/* keep characters? 

*/ 


{ * iptr++= toupper ( ch ) ; 

/* plant character 

*/ 


wrch(ch) ; } } } 

/* echo it 

V 



/* 

*/ 

/************************************************* 

V 

/* 



V 

/* 

R D C H 


V 

/* 



*/ 

/* 

Read keyboard input until a character 

is encountered. Poll for 

*/ 

/* 

SAPMD status. 


*/ 

/* 



*/ 

/************************************************* 

V 



/* 

*/ 

rdch( ) 

/* read character 

V 


{unsigned char ch; 

/* returned character 

V 


if ( ! polst ( ) ) 

/* any status data? 

V 


[pshcurs( ) ; 

/* ... yep, save cursor pos. 

V 


status ( ) ; 

/* display status 

V 


popcurs( ) ; } ; 

/* restore cursor position 

*/ 


if (cmdfile) 

/* command file open? 

V 


{ch=fgetc(cfile) ; 

/* get high nibble . . . 

V 



if (!(ch==CEOF) && ( ! feof (cfile) ) ) return (ch); /* EOF? */ 

fclose(cfile) ,• /* close file */ 

cmdfile=0;}; /* mark command file closed */ 

return ( rdc ()); } /* read keyboard */ 

/* V 

/************************************************* */ 

/* */ 

/* R D S G */ 

/* V 

/* Read SAPMD input until a character is detected. Poll for */ 

/* SAPMD status. */ 

/* */ 

/* ************************************************ * / 

/* */ 

rdsg() /* read SAPMD */ 

[while (polsg()) /* any response from SAPMD? */ 

if (!polst()) /* check for status data */ 

[pshcurs( ) ; /* ... yep, save cursor pos. */ 

status(); /* display status */ 

popcurs ( ) ; } ; /* restore cursor position */ 

return ( rds ()); } /* read SAPMD character */ 

/* */ 

/*****************************/ 



****************************************************************************/ 
/* */ 

/* DEBUG */ 

/* */ 

/* Display 1st menu and process options. */ 

/* */ 

y'* ************************************************ */ 

/* V 

# include <supglob.c> /* locate global data */ 

/* V 

debug(argc,argv) /* debug SGA */ 

int argc; /* argument count (main) */ 

char *argv[]; /* argument list (main) */ 

{int i, /* temp. */ 

j ,• /* iteration variable */ 

static char *statxt[]= /* status line text */ 


{"EEPROM-ON SELF-TEST GSE ACQUISITION COMPLETE ERROR", 0}; 
comio( 0 , 0xc3 ) ; /* 9600; 8 bits; 1 stop; no p*/ 

for ( i=0 ;i<sizeof( sapmd)/sizeof ( struct cal);i++) sapmd [i] . serial=-l ; 
if ( (cfile=fopen( "sapmd. cal" , "rt" )) !=NULL) /* calibration file present? */ 
{for ( j=0 ; j <sizeof ( sapmd )/sizeof ( struct cal);j++)/* SAPMD cal. coefs.*/ 
if ( ( fscanf (cfile, "%d%d%f%\n" , &sapmd[ j] .serial, ssapmdf j] .offset, 
&sapmd [ j ] . coef ) ) ! =3 ) 


break ; 

/* bail out 

*/ 

j=feof (cfile) ; 

/* check for eof 

V 

fclose( cfile) ; } ; 

/* close cal file 

*/ 

show(m4 ) ; 

/* display status window 

V 

sat ( 0x0 f ) ; 

/* set obg 

V 

pmenu ( m4 , statxt ,0,0); 

/* show status line 

V 

sat (0x07 ) ; 

/* restore normal video 

V 

while ( 1 ) 

/* loop forever . . . 

V 

{menu(l, 1) ; 

/* display menu 

V 

if ( ! j ) 

/* check for cal file error 

*/ 

{ error ( BADCAL ) ; 

/* flag error 

V 

j+ + ; } ; 

/* remove error 

V 

while ( 1 ) 

/* not quite forever . . . 

V 

{ prompt ( " SELECT OPTION : " ) ; 

/* prompt for user input 

V 

rdln ( ) ; 

/* get input, act. char. 

*/ 

if ( scan ( ) ==NUMBER ) 

/* check for option 

V 

{i=acc; 

/* save option 

V 

if ( scan( )==E0L) 

/* check for number only 

*/ 

{ switch ( i ) 

/* number, process option 

*/ 

{case 1: 

/* COMMAND/INTERROGATE 

V 

cmdint( ) ; 

/* go poke SAPMD 

*/ 

break ; 

/* next 

*/ 

case 2 : 

/* SAPMD SELF-TEST 

V 

selftest ( ) ; 

/* exercise SAPMD 

V 

break ; 

/* next 

V 

case 3 : 

/* RECOVER PRESSURE DATA 

V 

recover ( ) ; 

/* go dump EEPROM log 

*/ 

continue; 

/* next 

*/ 

case 4 : 

/* DISPLAY PRESSURE DATA 

*/ 

if (dipress()) 

/* display data 

*/ 

{error (NOFILE) ; 

/* display error 

V 

continue; } ; 

/* don ' t redraw 

V 

break ; 

/* next 

V 

case 5: 

/* PRINT PRESSURE DATA 

*/ 

if (prpress()) error (NOFILE); /* print data 

*/ 

continue; 

/* next 

V 

default : 

/* bad option 

V 

error ( BADCMD ) ; 

/* send message 

V 

continue; } ; 

/* next iteration 

V 

break ; } } ; 

/* next iteration 

V 

if (token==Q) 

/* quit? 

V 

{ scrup (0,0,24,79,0); 

/* clear screen 

V 

i=inp( 0x21 ) ; 

/* read 8259 mask 

V 



outp(0x21,i | 0x10 ) ; 

/* stop serial interrupts 

*/ 

exit ( 0 ) ; } / 

/* stop. 

V 

if (token==CMD) 

/* command file? 

V 

[if ( i=excfile( ) ) error(i);} 

/* open command file 

*/ 

else 

/* not a command file? 

V 

if ( token !=E0L) error ( BADCMD ) 

; } } } /* null line? 

V 


/* 

V 







/* 



*/ 

/* 

D I P R E S S 


V 

/* 



*/ 

/* 

Display pressure data file. 


V 

/* 



*/ 

/************************************************* 

*/ 



/* 

V 

^include <supglob.c> 

/* locate global data 

V 



/* 

V 

dipress ( ) 

/* display data 

V 


[int i. 

/* iteration variable 

V 


pnum; 

/* page number 

*/ 


if (!getfile()) return (1); 

/* get file name 

*/ 


screen . lines++ ; 

/* add line for bottom 

V 


pshcurs ( ) ; 

/* save cursor attributes 

*/ 


menu( 5, 1) ; 

/* display window 

V 


prpage(prsam) ; 

/* display 1st page 

*/ 


pnum=0 ; 

/* current data index 

V 


echo=0; 

/* clear echo flag 

*/ 


while ( 1 ) 

/* loop forever 

V 


switch ( rdln ( ) ) 

/* read keypad 

V 


[case PGUP: 

/* page up 

*/ 


case UP: 

/* 

*/ 


if (pnum>0) 

/* not 1st page? 

*/ 


[pnum-=40 ; 

/* back up page 

V 


prpage( &prsam[pnum] ) ; } ; 

/* display data 

*/ 


break; 

/* next 

*/ 


case PGDN: 

/* page down 

*/ 


case DOWN: 

/* 

*/ 


if ( &prsam[pnum+40] <samptr ) 

/* more data? 

V 


(pnum+=40 

/* page down 

*/ 


prpage( &prsam[pnum] ) ; } ; 

/* display data 

*/ 


break ; 

/* next 

V 


case HOME: 

/* bail out 

*/ 


case LEFT: 

/* 

V 


screen . lines — ; 

/* restore screen size 

*/ 


echo++ ; 

/* echo characters again 

V 


popcurs ( ) ; 

/* restore cursor 

V 


return ( 0 ) ; 

/* > return 

V 


default : 

/* else 

V 


/}} 

/* ignore 

*/ 



/* 

V 

/************************************************* 

*/ 

/* 



*/ 

/* 

P R P A G E 


V 

/* 



*/ 

/* 

Display a page of pressure data. 


V 

/* 



V 

/* 

*********************************** ************* 

*/ 



/* 

V 

prpage( sm) 

/* display page 

*/ 


struct sam huge *sm,- 

/* starting sample 

*/ 


[static char *headr= 

/* window header 

*/ 


{"SAMPLE PRESSURE 

SAMPLE PRESSURE 



int i. 

/* iteration variable 

V 


j ^ 

/* iteration variable 

V 


k; 

/* iteration variable 

*/ 


clear (m6 ) ; 

/* erase window 

*/ 


m6->cury=l; 

/* first line 

*/ 


m6->curx=6 ; 

/* space 

V 


wtype ( m6 , headr ) ; 

/* print heading 

V 


for ( i=8 ; i<=48 ; i+=40 ) 

/* 2 columns 

V 


[m6->cury=2 ; 

/* move to top of window 

*/ 


m6->curx=32 ; 

/* ... for serial # 

V 


cursor (m6 ) ; 

/* . . . 

V 




printf ( "SAPMD SERIAL #%5d" , sm-> serial) 

; /* print serial # 

*/ 


for ( j =0 / j<20; j++) 

/* 1 column 

V 


if (sm<samptr) 

/* good sample? 

*/ 


[m6->curx=i; 

/* position cursor 

*/ 


m6->cury-t-+; 

/* ... 

*/ 


cursor (m6 ) ; 

/* ... 

*/ 


printf ("%3d %5. 2f" , sm->sample, sm->press); 



sm++ ; } } 

/* next sample 

V 


movcurs (24,1); 

/* hide cursor 

*/ 


setcurs ( 0x3000 ) ; } 

/* one line long 

*/ 



/* 

V 

/*■ 

************************************************ 

V 

/* 



V 

/* 

G E T F I L E 


*/ 

/* 



V 

/* 

Get pressure data file and process. 


V 

/* 



*/ 

/* 

************************************************ 

*/ 



/* 

V 

getfile( ) 

/* display data 

V 


[FILE *pf ile; 

/* pressure data file 

*/ 


unsigned char pdata[8192], 

/* pressure data 

*/ 


*pdptr ; 

/* pressure data pointer 

V 


union [unsigned char byt[4]; 

/* time bytes 

*/ 


unsigned long tm;} tick; 

/* 

*/ 


char ah [3] ; 

/* hex ascii character buffer*/ 


union { int i ; 

/* sample index 

V 


unsigned char b [ 2 ] ; } s. 

/* 

*/ 


serial ; 

/* SAPMD serial number 

*/ 


int i, 

/* iteration variable 

V 


j , 

/* iteration variable 

V 


k. 

/* iteration variable 

V 


P, 

/* eod index in pdata 

*/ 


m, 

/* # samples in file 

*/ 


adjust, 

/* Bennie ' s constant 

V 


pnum; 

/* page number 

V 


float coef; 

/* calibration coef. 

*/ 


coef= . 058594 ; 

/* default FF=15 . 0 psi 

*/ 


adjust=0 ; 

/* default offset 

V 


prompt ( " ENTER FILENAME : " ) ; 

/* prompt for file 

V 


if ( (i=rdln( ) )==H0ME || i==LEFT) return(0) 

/* read filename 

*/ 


skbl ( ) ; 

/* skip blanks to filename 

V 


if (*iptr==CR) return(0); 

/* null line? 

V 


for (i=0;i<sizeof (line) ;i++) 

/* stomp EOL 

V 


if (line[i]==CR) line[i]=0; 

/* ... 

*/ 


if ( (pfile=fopen(iptr, "rb" ) )==NULL) 

/* file exist? 

*/ 


return ( 0 ) ; 

/* return error 

V 


else 

/* file opened 

V 


[for (p=0; ;p++) 

/* eof? 

V 


[ah [0]=fgetc( pfile) ; 

/* get high nibble ... 

V 


ah [l]=fgetc( pfile) ; 

/* ... and low 

*/ 


ah[2]='\0 ' ; 

/* terminate string 

*/ 


if ( feof (pfile) ) break; 

/* EOF? 

*/ 


pda ta [ p ] =bhex (ah);}; 

/* convert to binary 

V 


fclose( pfile) ; 

/* close file 

*/ 


pdptr=pdata ; 

/* point to pressure data 

*/ 


samptr=prsam; 

/* point to processed data 

V 


serial .b [1] =*pdptr++ ; 

/* get serial number 

V 


serial . b [0] =*pdptr++ ; 

/* ■ • • 

V 


for (1=0/ j<sizeof (sapmd)/sizeof (struct cal) ;]++)/* cal. coef. 

V 


if ( sapmd [ j ] . serial==serial . i) 

/* is this one calibrated? 

V 


{ coef =sapmd [ j ] . coef ; 

/* set cal. coef. 

*/ 


adj us t= sapmd [ j ] .offset; 

/* set calibration offset 

V 


break ; } ; 

/* 

*/ 


for ( j=0 ; j <4 ; j++ ) tick .byt [ j ] =*pdptr++ ; /* get GMT 

*/ 


tick. tm* = 51; 

/* convert to 100 msec units 

*/ 



m = ( p - 6 ) / 2/ 

/* find amount of data 

V 

for (k=0;k<m;k++) 

/* scan pressure data file 

*/ 

[s.i=k; 

/* establish index 

V 

s.b[0] =*pdptr++; 

/* get sample number 

V 

s amp t r- > samp le=s . i ; 

/* number sample 

V 

j=*pdptr++; 

/* convert from char, to int 

*/ 

samptr->press=( j<adjust?0: j-adjust)*coef ; /* 

V 

samptr->serial=serial . i ; 

/* mark source SAPMD 

V 

samptr++ / } } ; 

/* next sample 

V 

return ( 1 ) ; } 

/* good file 

V 


/* 

V 





